home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / gt_power / bguti23.zip / RELAY1.SCR < prev    next >
Text File  |  1990-03-25  |  2KB  |  103 lines
  1. ;  <<  Jim Kreyling  >>
  2. ;++++++++++++++++++++++++++++++++++++++
  3. ; PC RelayNet (Automatic) / Time Limits
  4. ;++++++++++++++++++++++++++++++++++++++
  5. ; v1 = total call attempts (numeric)
  6. ; v2 = 
  7. ; v3 = current time (numeric)
  8. ; v4 = test variable to be sure this is first connetion
  9. ; v5 = connect time (numeric)
  10. ; v6 =
  11. ; v7 =
  12. ; v8 = total call attempts (string)
  13. ; v9 = connect time (string)
  14. ;
  15. Log "RelayNet Mail Script - Starting"
  16. Cursor OFF
  17. V1 = 0
  18. V4 = "NO"
  19. ;
  20. Clear
  21. MKwin 1 1 33 3 "PC RelayNet Node ID"
  22. GotoXY 1 1
  23. SetColor 12 0
  24. Write "Connecting With ]--->  HNIS"
  25. ;
  26. Quiet ON
  27. ;
  28. :GoAgain
  29. ;
  30. ;Used to correct error with script lang if time is after 9:59:59
  31. ;V3 Pad %Time -8 "0"
  32. V3 = %Time
  33. ;
  34. ;adds a double check to be sure !
  35. Case %4 OF
  36.    = "YES"
  37.        Log "Possible Error Has Occurred"
  38.        Log "RelayNet Mail Script - Ending - Second Time Called"
  39.        Exit
  40.    = "NO"
  41.        MKwin 13 9 69 20 "Call In-Progress"
  42.        Name "HollyWood News and Info"
  43.        V1 Add %1 1
  44.        V8 Str %1
  45.        GotoXY 1 1
  46.        Write "Attempting Call Number --->   " %8
  47.        WriteLn
  48.        WriteLn
  49.        Dial "1-301-373-3530"
  50.        End
  51. Esac
  52. ;
  53. ;Check to be sure CONNECT is Good - Then Go !
  54. Case %DCD OF
  55.    TRUE
  56.       RMwin
  57.       RMwin
  58.       Log "Connected with Relay Hub - Total Calls To Connect = " %8
  59.       V3 = %Time
  60.       V4 = YES
  61.          Wait For "(Enter)=no?"
  62.          SendLn "N"
  63.          Wait For "first name?"
  64.          SendLn "Jim Kreyling ClubPC"
  65.          Wait For "(Enter)=yes?"
  66.          SendLn "N"
  67.          Wait For "Command?"
  68.          SendLn "Open 7"
  69.          Shell "C:\prot\DSZ port %Com speed %Baud ha bo sz C:\adn\ClubPC.rly"
  70.          Wait 200 For "000"
  71.          Shell "C:\prot\DSZ port %Com speed %Baud ha bo rz C:\adn\in.rly"
  72.          SendLn "G"
  73.          V5 Tdiff %Time %3
  74.          V9 Str %5
  75.          Log "RelayNet Mail Script - Ending - Normal Abort"
  76.          Log "Dis-Connect from Relay Hub - Connect Time =" %9 "Minutes"
  77.          Exit
  78.    FALSE
  79.          V4 = "NO"
  80.          RMwin
  81.          MKwin 20 11 62 16 "Call Report"
  82.          Case %Busy OF
  83.             TRUE
  84.                GotoXY 17 2
  85.                SetColor 14 6
  86.                Write "- BUSY! -"
  87.              ?
  88.                GotoXY 15 2
  89.                SetColor 14 6
  90.                Write "- NO Answer -"
  91.          Esac
  92. Esac
  93. ;
  94. GotoXY 2 4
  95. SetColor 11 0
  96. Write "Waiting 5 Seconds Then Recycling Script"
  97. ;
  98. Twait 4000
  99. ;
  100. RMwin
  101. ;
  102. Goto GoAgain
  103.